;;;Rerotate a selection set of entities to be horiz to the view.
;;;
;;;	AUTHOR: HENRY C. FRANCIS
;;;		425 N. ASHE ST.
;;;		SOUTHERN PINES, NC 28387
;;;              
;;;		All rights reserved without prejudice.
;;;	Copyright:	7/28/2007
;;;	Edited:		7/28/2007
;;;
(defun c:blkang (/)
(prompt "\nSelect Blocks: ")
(setq ents_ss (ssget '((0 . "INSERT")))
      ents_cnt 0
      ents_sslen (sslength ents_ss)
      ents_rotang (uangle 1 "Horizontal Zero" "New rotation angle" nil nil)
)
(while (< ents_cnt ents_sslen)
  (setq cur_ent (entget (ssname ents_ss ents_cnt)))
  (setq cur_ent (subst (cons 50 ents_rotang)(assoc 50 cur_ent) cur_ent))
  (entmod cur_ent)
  (setq ents_cnt (1+ ents_cnt))
)
);defun
